<Serializable()> Public Class Documento
    Inherits ObjetoPersistente

#Region "atributos"
    Private mFecha As Date
    Private mNumerador As Integer
    Private mMonto As Double
#End Region

#Region "propiedades"
    Public Property fecha() As Date
        Get
            Return Me.mFecha
        End Get
        Set(ByVal Value As Date)
            Me.mFecha = Value
        End Set
    End Property
    Public Property numerador() As Integer
        Get
            Return Me.mNumerador
        End Get
        Set(ByVal Value As Integer)
            Me.mNumerador = Value
        End Set
    End Property
    Public Property monto() As Double
        Get
            Return Me.mMonto
        End Get
        Set(ByVal Value As Double)
            Me.mMonto = Math.Round(Value, 2)
        End Set
    End Property
#End Region

#Region "Constructor"
    Public Sub New()
        Me.fecha = Date.Today
        Me.numerador = 0
        Me.monto = 0
    End Sub
#End Region

End Class
